home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
segue.exe
/
NSPOOL.PRG
< prev
next >
Wrap
Text File
|
1991-10-29
|
2KB
|
51 lines
*.............................................................................
*
* Program Name: NSPOOL.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/29/11 Language: Clipper
* Time Created: 01:37:01 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for starting or stopping spool capture, or to add file to spool queue.
* Functionally equivilent to N_SPOOL function in NETLIB library with the exception that
* when a file name is specified, the file name indicates a capture file name that can
* be printed later with NPRINT.
*
FUNCTION NSPOOL_
* Purpose: To set spooler timeout value in seconds.
* Usage : NSPOOL_([ON|OFF|<expC>])
* :
* Where : <expC> = Filename for placing file into the spool queue.
* : 0 = no timeout.
* :
PARAMETERS splr
LOCAL msplr
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(splr)<>'C' .AND. splr<>nil
rtn = -101
exit
endi
* Set up defaults
msplr = if(valtype(splr)=='C',uppe(alltrim(splr)),nil)
* Get/Set spooler timeout
if pcount()=0 // If no arguments, return current setting.
rtn1 = PRDFCAFS() // Get LPT Capture Status
rtn=if(rtn1=0,.F.,.T.)
elseif msplr = "ON"
rtn = PRDFCASR() // Start LPT Capture
elseif msplr = "OFF"
rtn = PRDFCAEN() // End LPT Capture
else
rtn = PRFLCA(DRDVHN(),msplr) // Get Directory Handle, Specify Capture File
endi
exit
endd
RETURN rtn